home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / util / rexx / WW_Farben.lha / WW-Farben / WW-Farben.rexx < prev    next >
OS/2 REXX Batch file  |  1997-07-07  |  951b  |  32 lines
  1. /* $VER: WW-Farben.rexx Version 1.0. 7.7.97                                    */
  2. /* Demoblatt mit Farben von Wordworth erstellen                                */
  3. /* FREEWARE (C) 1997 Heiko Kuschel <hk0006@wuerzurg.baynet.de>                 */
  4. /* Die Farben müssen leider von Hand eingetragen werden. Geht nicht mit WW :-( */
  5. signal on error
  6. DO Num = 1 to 20
  7.         WwPort = "WORDWORTH." || Num
  8.         IF SHOW(PORTS, WwPort) THEN DO
  9.                 Address Value WwPort
  10.                 leave Num
  11.         end
  12. end
  13. if num=21 then do
  14.     echo "Wordworth nicht gefunden! Programm endet."
  15.     echo "Wordworth not found! Program ends."
  16.     exit
  17.     end
  18. OPTIONS RESULTS
  19.  
  20. NEW
  21. PORTNAME=RESULT
  22. ADDRESS VALUE PORTNAME
  23.  
  24. Do hor=0 to 3
  25.    Do ver = 0 to 5
  26.  
  27.        Drawbox "1" 2+(hor*4.25)"cm" 1+((ver*4.16))"cm" "3.5cm" "3cm" TRANSPARENT "1pt" SCHWARZ SINGLELINE NONE "0.3cm"
  28.        Drawtextframe "1" 2+(hor*4.25)"cm" 4+(ver*4.16)"cm" "3.5cm" "0.8cm"
  29.    end
  30. end
  31.  
  32.